home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / calc1 / calc.glo < prev    next >
Text File  |  1992-12-06  |  3KB  |  74 lines
  1. DefInt A-Z
  2.  
  3. Declare Function UnrealizeObject Lib "GDI" (ByVal hObject As Integer) As Integer
  4. Declare Function SelectObject Lib "GDI" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer
  5. Declare Function GetStockObject Lib "GDI" (ByVal nIndex As Integer) As Integer
  6. Declare Function Rectangle Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  7. Declare Function SetROP2 Lib "GDI" (ByVal hDC As Integer, ByVal nDrawMode As Integer) As Integer
  8. Declare Function CreateRectRgn Lib "GDI" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
  9. Declare Function SelectClipRgn Lib "GDI" (ByVal hDC As Integer, ByVal hRgn As Integer) As Integer
  10. Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer
  11. Declare Function GetDC Lib "User" (ByVal hWnd As Integer) As Integer
  12. Declare Function ReleaseDC Lib "User" (ByVal hWnd As Integer, ByVal hDC As Integer) As Integer
  13. Declare Function DeleteDC Lib "GDI" (ByVal hDC As Integer) As Integer
  14. Declare Function RestoreDC Lib "GDI" (ByVal hDC As Integer, ByVal nSavedDC As Integer) As Integer
  15.  
  16. ' Binary raster ops
  17. Global Const R2_NOTXORPEN = 10
  18.  
  19. ' Stock Logical Objects
  20. Global Const WHITE_BRUSH = 0
  21. Global Const LTGRAY_BRUSH = 1
  22. Global Const GRAY_BRUSH = 2
  23. Global Const DKGRAY_BRUSH = 3
  24. Global Const BLACK_BRUSH = 4
  25. Global Const NULL_BRUSH = 5
  26. Global Const HOLLOW_BRUSH = NULL_BRUSH
  27.  
  28. Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName As String)
  29. Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As Integer)
  30. Declare Function GetWindowsDirectory% Lib "Kernel" (ByVal lpBuffer$, ByVal nSize%)
  31. Declare Function GetSystemDirectory% Lib "Kernel" (ByVal lpBuffer$, ByVal nSize%)
  32.  
  33. ' Calculator declarations
  34. Global StartX As Single
  35. Global StartY As Single
  36.  
  37. Global Border As Single
  38. Global TPRatio As Single
  39. Global Bevel As Integer
  40. Global Outline As Integer
  41.  
  42. Global OKToMove As Integer
  43.  
  44. Global PixOffsetX As Integer
  45. Global PixOffsetY As Integer
  46. Global PixStartX As Integer
  47. Global PixStartY As Integer
  48. Global PixPictX As Integer
  49. Global PixPictY As Integer
  50. Global PixX As Integer
  51. Global PixY As Integer
  52.  
  53. Global RgnX1 As Integer
  54. Global RgnY1 As Integer
  55. Global RgnX2 As Integer
  56. Global RgnY2 As Integer
  57.  
  58. '  Data type used by FillRect
  59. Type RECT
  60.     left As Integer
  61.     top As Integer
  62.     right As Integer
  63.     bottom As Integer
  64. End Type
  65.  
  66. '  API Functions used to create pattern brush and draw brush on form
  67. Declare Function CreatePatternBrush Lib "GDI" (ByVal hBitmap As Integer) As Integer
  68. Declare Function FillRect Lib "User" (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As Integer) As Integer
  69. Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer
  70.  
  71. '  This variable keeps track of which picture shade in picShade
  72. '  control array is being used
  73. Global GShade As Integer
  74.